home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / ragtime jukebox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  160 lines
  1. 0 tp$="":sys65418:poke54296,.
  2. 1 poke53281,1:poke53280,6
  3. 2 ifx=0thenx=1:print"[147][144]"spc(10)"[212]uning the piano...":load"sid.obj",8,1
  4. 3 ifx=1thenx=2:load"input any.o",8,1
  5. 4 sa=780:sx=781:sy=782
  6. 5 poke53280,6:poke53281,1
  7. 6 s$="                                      "
  8. 7 td$=""
  9. 10 print"[147]"
  10. 20 print"         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  11. 30 print"         [221][204]oadstar presents[221][144] "
  12. 40 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144] "
  13. 50 print"                             "
  14. 60 print:print
  15. 70 gosub8000
  16. 180 print
  17. 190 print"         [154][160]    (c) 1987"
  18. 200 print"[154][160]"
  19. 210 print"[160]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  20. 220 print"[154][160]         [221] [208][210][197][211][211] [193][206][217] [203][197][217] [221][144] "
  21. 230 print"          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][160]"
  22. 240 print"                            "
  23. 250 print"";
  24. 260 poke198,0:wait198,1:poke198,0:jo=56320
  25. 270 ns=8:dimf$(ns),r$(ns),t$(30):di=int(ns/2)
  26. 272 sp=1
  27. 280 forx=1tons:readf$(x),r$(x):next
  28. 290 :
  29. 291 data "[212]op [204]iner",top liner.mus
  30. 292 :
  31. 293 data "[203]itten [207]n [212]he [203]eys",kitten keys.mus
  32. 294 data "[204]ittle [210]ock [199]etaway",littlerock.mus
  33. 295 data "[208]atricia [210]ag",patricia.mus
  34. 296 data "[200]obson [211]t. [194]lues",hobson st..mus
  35. 297 data "[194]ohemia [210]ag",bohemia.mus
  36. 298 data "[211]olace",solace.mus
  37. 299 data "[200]eliotrope [194]ouquet",heliotrope.mus
  38. 300 print"[147]"
  39. 302 gosub8000
  40. 330 :
  41. 340 print"  [213]se [195]ursor keys or [202]oystick to move"
  42. 342 print"  the highlight to the song you want."
  43. 344 print"    [208]ress [[210][197][212][213][210][206]] or [198]irebutton to"
  44. 346 print"     select the highlighted tune."
  45. 348 print"[144]         [[208]ress '\' to exit]"
  46. 350 :
  47. 400 gosub1000: rem plot titles
  48. 410 gosub2000: rem get key
  49. 420 ifsp=ns+1then3000: rem play all
  50. 430 gosub4000: rem play tune at sp
  51. 440 goto300
  52. 450 :
  53. 1000 rem plot titles
  54. 1005 print""
  55. 1010 forx=1todi
  56. 1020 print"[146] ";:ifx=spthenprint"[154]";
  57. 1030 printf$(x);
  58. 1040 print"[146]";:ifx+di=spthenprint"[154]";
  59. 1050 printspc(21-len(f$(x)))f$(x+di)
  60. 1060 next
  61. 1070 print"[146]";:ifsp=ns+1thenprint"[154]";
  62. 1080 printspc(14)"[208][204][193][217] [193][204][204]"
  63. 1090 return
  64. 1094 :
  65. 2000 rem get key
  66. 2005 k=peek(198):j=peek(jo)
  67. 2010 ifk=0andj=127then2005
  68. 2020 getk$
  69. 2025 ifk$=chr$(13)orj=111then2100
  70. 2030 ifk$=""orj=125thensp=sp+1
  71. 2040 ifk$="[145]"orj=126thensp=sp-1
  72. 2045 ifk$=""orj=119thensp=sp+di
  73. 2050 ifk$="[157]"orj=123thensp=sp-di
  74. 2055 ifk$="\"then5000 : rem quit
  75. 2060 ifsp<1thensp=1
  76. 2070 ifsp>ns+1thensp=ns+1
  77. 2080 gosub1000:goto2005
  78. 2090 :
  79. 2100 return
  80. 2110 :
  81. 3000 rem play all
  82. 3005 sp=1
  83. 3020 f$=r$(sp):gosub6000
  84. 3030 gosub7000
  85. 3040 iffl=0thensp=sp+1:ifsp<=nsthen3020
  86. 3050 goto300
  87. 3060 :
  88. 4000 rem play song sp
  89. 4010 f$=r$(sp)
  90. 4020 gosub 6000
  91. 4030 gosub 7000
  92. 4040 goto300
  93. 4050 :
  94. 5000 rem quit
  95. 5010 print"[147]":gosub 8000
  96. 5020 print"  [193]re you sure you want to quit [[217]/[206]]?"
  97. 5022 poke198,0:wait198,1:getag$
  98. 5024 ifag$="y"orag$="[217]"then60000
  99. 5026 ifag$="n"orag$="[206]"then300
  100. 5028 goto5022
  101. 6000 pokesa,1:pokesx,8:pokesy,0:sys65466
  102. 6008 for k=1 to len(f$):poke 584+k,asc(mid$(f$,k)):next
  103. 6010 poke sa,len(f$):poke sx,73:poke sy,2:sys 65469
  104. 6012 pokesa,0:pokesx,0:pokesy,32:sys65493
  105. 6014 f$="t."+r$(sp):open2,8,2,f$:get#2,a$,b$:input#2,nl
  106. 6016 forx=1tonl:sys828,2,38:t$(x)=tp$+"":next:close2
  107. 6018 return
  108. 6020 :
  109. 7000 rem play it
  110. 7002 print"[147]":gosub8000:gosub9000
  111. 7010 sys49435:pokesx,0:pokesy,32:sys49458:poke49152,7
  112. 7020 ifpeek(198)=0and((peek(49152)and7)=7)andpeek(jo)=127then7020
  113. 7021 if(peek(jo)and16)=.thenfl=1:goto7030
  114. 7022 fl=0:if(peek(49152)and7)<>7then7030
  115. 7025 gc=0:getag$:gc=1:j=peek(jo):gosub10000
  116. 7028 iffl=1then7030
  117. 7029 goto7020
  118. 7030 poke49152,0
  119. 7040 poke54276,0:poke54283,0
  120. 7050 poke54290,0:sys49629
  121. 7060 return
  122. 7070 :
  123. 8000 rem boxer
  124. 8004 print"    [154]                              "
  125. 8006 print"                              [154]    [144] "
  126. 8008 print"    [154]        [210]agtime [202]ukebox    [154]   [144] "
  127. 8010 print"    [154]   [160]                      [160][154][160]  [144] "
  128. 8012 print"    [154]   [160]                       [154]   [144] "
  129. 8014 print"    [154]                              [144] "
  130. 8016 print"    [154]          [193]ll music           [144] "
  131. 8018 print"    [154]  transcribed by [202]ohn [210]oache  [144] "
  132. 8020 print"    [154]                              [144] "
  133. 8022 print"                                   "
  134. 8024 return
  135. 9000 print"     [195]ursor keys or joystick scroll"
  136. 9001 print"    [208]ress [\] or [198][201][210][197][194][213][212][212][207][206] to exit."
  137. 9002 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  138. 9003 fori=1to6:print"[221]";spc(38)"[221]";:next
  139. 9004 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  140. 9006 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  141. 9007 print"[221]"spc(38)"[221]";
  142. 9008 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  143. 9009 print"[145][145]";spc(20-len(f$(sp))/2);f$(sp);
  144. 9010 lp=1:goto10050
  145. 9020 :
  146. 10000 rem deal with scrolling...
  147. 10010 ifag$=""orj=125thenlp=lp+1
  148. 10020 ifag$="[145]"orj=126thenlp=lp-1
  149. 10030 ifag$="\"thenfl=1:goto10100
  150. 10040 iflp>nl-5thenlp=nl-5
  151. 10045 iflp<1thenlp=1
  152. 10050 forx=217to242:pokex,128orpeek(x):next:printtd$:forx=lptolp+5
  153. 10060 print""t$(x)left$(s$,38-len(t$(x)))
  154. 10070 next
  155. 10100 return
  156. 60000 rem return
  157. 60010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  158. 60020 ifer<>63thenend
  159. 60025 load"hello connect",8
  160.